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SBEGIN RMOCOMCLN,000,RMSRMSO,<COMMON CLEAN UP CONN=DISCONN> 


a ee ee ee ee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


ON OF TH T NOTICE. SOFTWARE OR OTH HER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO_ANY 
ER THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeRPORAT on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS . 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR _ RELIABILITY OF ITS 
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S NOT SUPPLIED BY DIGITAL. 
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; Facility: rms32 

Abstract: 

: this module provides four entry points to provide common 
: clean up on connect = disconnect. 


; Environment: 


star processor running starlet exec. 
; Author: L F Laverdure, Creation Date: 31-MAR-1977 
; Modi tied By: 


V03-008 JwT0160 Jim Teague 29-F eb-1984 
Complete the anticipated removal of RMSDEALLEFN. 


v03-007 ye Stephen H. Zalewski 3-Feb-1983 
ke routine RMSDEA LEFN a NOP in anticipation of 
net n it altogether. 


V03-006 KPLO008 Peter Lieberwirth 29-Apr-1983 
Always deallocate [RAB journaling structures. 


V03-005 KBT0367 Keith B. Thompson 11-0¢ t-1982 
Deallocate irab and asb seperatly 


V03-004 JwWwHO002 rey W. Horn 20-Sep-1982 
Rename RLBSW_ OWNER : LBSL_OWNER. 


v03-003 KBT0322 Keith B. Thompson 9-Sep-1982 
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$088 28 ; Remove all SO sharing code 
$500 60 ; v03-002 KBT0202 Keith B. Thompson 23-Aug-1982 | 
0000 e] ; Reorganize psects and fix rev. history of jah 001 
000 63 ; V03-001 JwHO001 Jeffre 19-May-1982 | 
0000 64 ; Add call to RMSDSCINL. By Let oid of Seusteml tae BDB and | 
0000 So 3 buffer. 
0000 66 ; 
0000 67 ;-- 
0000 68 ; 
0000 69 
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DECLARATIONS 


; global buffer pointer block 


Include Files: 


Macros: 
3; Equated Symbols: 


: Own Storage: 


OPN TN OR. WOOO CPM TWN OR. OOO CUM TN OR 
PR P-P-P-_P-P-P-P- COC COCO DMD DDDDOOOOOAOOAO 


COOCOCOOOCOOSOOOOOSOOOOOOSOSOOOOOOOOoOOoOO 
COOOCOSCOOCOSOOOOCOOSCOOCOOSCOOOSOOSOOSOOSOOOOO 
SOOOOOCOCOSCOSOOSOOCOCOSOOOSOOSOSOOSOSOOSOOSOOoOO 
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-SBTTL RMSDISCOMMON = COMMON CLEANUP ON CONNECT=DISCONNECTT ROUTINES 
++ 
RMSD 1 SCOMMON 
RMSDISCOMMONSUC = sets r0 to rm$_suc and falls thru to rm$discommon 
RM$D1ISCOMMON = checks for network disconnect and falls thru to 
rm$comc Lnup 
RMSCOMCLNUP - return all bdb's and buffers for stream and fall thru 
to rm$cclni_ r0 already pushed onto stack 
RMSCCLNI1 - deallocate irab and zero isi and irab table entry 


; Calling sequence: 


bsbw rm$discommonsuc 
bsbw rm$discommon 
brw rm$comc lnup 
bsbw rm$cclni 


; Input Parameters: 


rii impure area address 

r10 ifab address 

r9 irab address 

r8 rab address , 

r0 status code (except for entry at rm$discommonsuc) 


for entry at rm$discommon: irbey pee conn ; 
for entry at rm$comclnup:  irb$b_bcnt & bdb chain 
for entry at rm$cclni: irb$l_irab_lnk 


Output Parameters: 


r0 status code 

r7 set from irb$b_mode 
r9 zeroed 
a set from irb$l_arglst 


rl-r6 destroyed 
Implicit Outputs: 
rab$w_isi zeroed 
rab$l_stv posgialy updated 
irab, its bcb's, bdb‘'s and related buffers deallocated 
Completion Codes: 
standard rms. if an error occurs it will replace 
the gtatus code input in r0, otherwise the code input 
will be used. 
; Side Effects: 


none 


inr 


me ee ed a ed td od = = 8 2 8 = = 3 3 — 3 3 = = 3 3 2 2 2 = 3 — I 4 2 
POA EEE BE EEE BWW ononononononononony 3 OOOO 
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: Implicit Inputs: 
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RMSDISCOMMON: : 
PUSHL 


50 ODD RO ; Save status 


check for process-permanent file cleanup 


AOE WN © ODNAUES WN SO ODNAUES WN O OODNOAOUE WN" OOOnNOuM 
. 


tM QOODODOOOO OOOO OOO OOO 090000 09 09 00 09 09 09 09 SI NINN NSIS NSIS SII AAO OO 


ROPOPOMONONOPOPOPONOPDNMPOMONOPONNNPONONDY 2 2 9 2 I SS 


69 22 €1 BBC #IRBSV_PPF_IMAGE,(R9),- 
03 1$ ; branch if not indirect acc to ppf 
00DD ss «31 BRW IND_FILE 3 branch 
6A 2E— £1 1$: BBC #I1FBS$V_PPF_INPUT,(R10),- 
10 10$ ; branch if not sys$input 
2401 8F B0 MOVW #1+<*A/$/a8>,- 
00000000 * 9F a#PlO$GT_ENDSTR ; reset eod string to ‘$' 
02 8A BICB2 #1aP10$V~EOD,- 
00000000' 9F a aaP 1O$GW~ STATUS : and clear eod flag 
69 3C €E5 BBCC  #IRB$V_DAP_CONN, (R9),- . 
OD BIOCHK ; not net then continue 
344 
3; perform network disconnect function 
7 NIDISC: 
68 04 EO 8 8 BBS #IMPSV_IORUNDOWN, (R11) ,- 3 : 
09 0 9 BIOCHK ; branch if i/o rundown in progress 
FFD5’ 30 00 0 BSBW NTSDISCONNECT 3 disconnect at remote node 
03 50 €8 00 1 BLBS RO,BIOCHK 3; branch if successful 
6— 50 00 . : § MOVL RO, (SP) : save error code 
031 4 BIOCHK: 
05 €0 0031 5 BBS #1FBS$V_BIO,- 
OB 22 AA 033 6 IFBSB_FAC(R10) ,NOBUFF =; branch if block i/o 
23 AA 00 $ 7 TSTB —IFBSBTORGCASE (R10) : is this seq f.o. ? 
0 13 83 8 BEQL RMSCORCLNUP ; if yes, no lock bdb to return 
6A EO 0038 9 BBS #IFBSV_NORECLK,(R10),- ’ ; 
08 ORE $9 RMSCOMCLNUP ; branch if no Locking 
2A 2=6(11~—=CO003F 1 BRB RIN 3 return the lock blb. 


++ 


check for locking and return blb's if so. 


I 2 
RMOCOMCLN COMMON CLEAN UP CONN=-DISCONN a a dat 9 90: 14:08 AX/VMS Macro V04-00 Page 7 
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41 5 NOBUF F : 
t1 554 
041 5 ; This is the return the block i/o bdb. This will branch into cache 
041 § 3; and release to get rid of it. Because the bdb was not counted as 
0041 ; a buffer when allocated, the avicl count is bumped so cache will 
0041 8 ; just find it and take it. Cache will also set the bdb$w_users count 
0041 9 ; to 1 so that release is not upset for the relative and isam orgs. 
0041 0 ; The only reason cache and release are used at all is because i 
0041 1 ; someone is out there doing asynch multistreaming with block i/o 
0041 ¢ ; this should prevent us from returning a bdb in use, because cache 
0041 ; will look for one with a users count of 0, and the block i/o code 
0041 4 ; sets the users count to 1 when using it. 
ge 
0084 CA B6 0041 37 INCW IFBSW_AYLCL(R10) ; want to fake out cache so it 
0045 38 ; doesn't try to free one. 
05 11 0045 39 BRB BIO ; branch to return it. 
0047 40 
0047 241 ;++ 
0047 stg : 
0047 243 ; entry point to return all blb's, bdb's and buffers for this stream. 
0047 244 ; status already pushed onto stack. this is error path from rm$bdbal loc 
0047 245 ; to return bdb's, blb's allocated before failure. irab will also be 
0047 246 ; deallocated before returning to user so no other structures can be present. 
0047 247 ; this is strictly error path on connect operation. lock blb will not have 
0047 248 ; been allocated. 
0047 $08 : 
0047 50 ;-- 
0047 251 
0047 $26 RMSCOMCLNUP: : 
0047 25 
0047 See p++ 
0047 55; j 
0047 256; return bdb's used by this stream 
0047 257 ; 
0047 258 ;-- 
0047 $23 
54 A9 97 0047 60 DECB IRB$B_BCNT(RI) ; decrement buffer count 
48 19 OQO4A 261 BLSS CHK ; branch if no more 
004C 66 BI0: $SCACHE VBN=#0,SIZE=40,- 
004¢ 6 FLAGS=<NOREAD> : get any BDB. ; 
FEE 50 €9 0056 64 BLBC RO,RMSCOMCLNUP ; Tailed so go around again 
5301 0 Spee 65 RTNBDB: MOVL ooh son RETURN,R3 3; set return tag 
FFA1' O5C 66 BSBW RMSRELEASE ; release bdb & buffer 
03 50 €8 Ope 67 BLBS RO,RTNJNL : go check for blb release 
6— 50 00 494 98 MOVL RO, (SP) 3 Save error code 
OOOOOOO0'EF 16 Open 79 RTNJNL: JSB RMSDSCJNL ; clean up IRAB journal structures 
7 
boes 598 
74 
p 
1S 
78 


Soooooo 
Seaman ow 


RTNBLB: 


ee 
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D8 6A 33 Fe 68 79 BBS #IFBSV_NORECLK, (R10), RMSCOMCLNUP ; branch back if no locking. 
02 ¢f 0 BSBB = RTNBLB ; Return a BLB. 
oe 1 BRB RMSCOMCLNUP ; Loop to get any more. 
7 ¢ RTNBLBS: 
3! ASSUME BLBSL_FLNK EQ 0 
7 4 ASSUME BLBSL_BLNK EQ 4 
54 0098 CA DE 007 5 MOVAL Ha -  alasthanbl R4 ; get list head. 
50 DO 007 § MOVL R4,R 3; Save for end test. 
54 04 AG 00 0078 8 10$: MOVL 4(R4), RG : get blb element. 
54 D1 007F § CMPL =O, -RG : back at List head? 
09 13 0082 89 BEQL 20$ ; it's a bug if we are. 
24 AG ODS i 90 TSTL FEgSt LOCK JDCRA) ; is this one in use? 
F2 12 0087 91 BNEQ 1 ; NEQ it is, get another. 
FF74* 31 0089 8 BRW RMSRETBLB ; and return it. 
05 008C 9 RSB ; Return. 
008D 94 20$: 
008D 295 RMSPBUG FTL$_NOBLB 
0094 96 
0094 97 CHKGBL: 
27 69 «836 = =6E1 «(0094 98 BBC #IRB$V_GBLBUFF ,(R9) ,RTNRLB ; Branch if no gbpb, blb allocated. 
7E D4& 0098 $35 CLRL - ; Init pass counter. 
54 40 AA DE OQO09A 00 10$: MOVAL IFBSL_BDB_FLNK(R10) ,R4 ; Get List head address. 
50 54 00 4 31 MOVL R4, RO ; Save for end test. 
00A1 308 ASSUME IFBS$L_BDB_BLNK €Q <IFBSL_BDB_FLNK + 4> 
SOA 308 ASSUME GBPBSC_BLINK EQ 4 
54 04 A4 DO OOAI $59 20$: MOVL 4(R4), RS : Scan backwards. 
50 54 D1 O0AS 307 CMPL = oRG, RO ; Back at head? 
12 13 QOA8 308 BEQL 30$ 3; Continue if so. 
OOAA 309 ASSUME <GBPBS$C_BID & 1>_£Q 1 “agin 
F308 AS =E—9 QOAA 419 BLBC GBPB$B_BID(R4), 20$ : Keep looking if not GBPB. 
OC AS «BS OOAE 311 TSTW  GBPBSW-USERS(R4) ; Is use count zero? 
EE 12 0081 $15 BNEQ ; Keep looking if not. 
FF4A’ 30 0083 31 BSBW RMSRETGBPB ; Return the GBPB. 
BB 10 00B6 314 BSBB RTNBLBS : Return the BLB. 
DE 6€ 00 €3 0088 315 BBCS #0, (SP), 10$ ; Branch if 1st pass. 
5E 04 CO OO0BC 31$ 30$: ADDL2 #4, SP ; Remove pass counter. 
OOBF 17 
0OBF 18 ;++ 
OOBF 17 3 2 
Goer $9 3: unlock all locked records for this stream and deallocate all unused rlb's 
OOBF § 7 
OOBF 
F ‘| 30 O0BF 4 RTNRLB: BSBW RMSUNLOCKALL ' 
ae . ae C1 00C2 5 ADDL3 #IRBSL_RLB_LNK,R9,RS ; get rlb List head addr in r3 
oo) C6 6 MOVL R3,A 3: copy it 
0C9 7 ASSUME RLBSL_LNK EQ 0 
54 6C f 0c9 8 40$: MOVL (AP) ,R4 : get next rlb addr 
a ee Occ 9 BEQL 0$ ; branch if no more 
10 AS =—S5) C(OOCE 0 TSTL RLBSL_OWNER(R4) ; in use? 
OF is 0D1 1 BNEQ ; branch if yes 
6C 64 OD 0D3 ¢ MOVL RLBSL_LNK(R4), (AP) : remove rlb from chain 
52 i DO D6 MOVL #RLBSC_BLN,R2 ; set rlb Length 
5 0 D9 4 PUSHL R 3 save space header addr 
FF22" 0 DB 5 BSBW RMSRETSPC1 ; deallocate rlb 


Se ee eee ea ee ee 
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08 A D POPR #*M<R3> 3; restore space header addr 
; 1 E BRB 40$ i; go get next rlb 
5C 4 00 E 8 55$: MOVL R4,AP 3; rlb in use - copy addr 
Fe 11 O0E 8 $ ¢ go get next rlb 
F 11 OE 40 60$: BRB RTNIRB 


| 
| 
ences LN COMMON CLEAN UP CONN=-DISCONN 16-SEP-1984 00:14:09 ances Macro V04-00 Page 10 | 
02-000 RMSDISCOMMON = COMMON CLEAN NUP ON CONNECT sets Pi 90:34:98 «SRCIRM RMOC COMCLN.MAR; 1 . ih 
e9 4 
FS 2g p++ 
0E9 44; 
RED rf ; this is a disconnect of an indirectly connected irab (i.e., for the image) 
QOE9 47 ; just zero isi and clear eof if unit record device 
QO0E9 48 ; 
O0E9 49 ;-- 
O0E9 50 
O0E9 51 IND_FILE: 
02 AB B4& ODED 26 CLRW ane ey tne) 3; clear isi 
00 =«€1 poet 2 BBC #DEVS 
41 6A OEE 4 IrBSe Pain DEV(RI0), EXIT; branch if not unit record device 
OOFO 55 CSB #IRBST_E 3 reset eof flag 
38 11. OOF4 56 BRB E 


} 
| 
| 
| 
XIT 
| 
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eae point for when no bdb's or buffers allocated. 
simply deallocate the irab and zeroes isi. 


RMSCCLN1:: 
PUSHL RO 3 save error co 
3 find this rene in ire2o chain 


| 
5A 00 RTNIRB: MOVL _— R10, R3 is ifab addr 
ASSUME IRB$!_IRAB_LNK EQ IFBSL_ ir B_LNK | 
A300 10$: MOVL IRPSL_IRAB_LNK(R3) ,R6 ; s neryt irab 
56 =O] CMPL R6,R9- : Is this the one? | 
oo BEQL 20$ : branch if yes 
56 =600 MOVL R6,R3 ; move ptr to other reg | 
Fe 11 BRB 10$ ; & keep searching 
: got the irab =- close up chain and deallocate the irab 
A6 00 20S: MOVL IRB$L_IRAB_LNK(R6) , IRB$L_IRAB_LNK(R3) 
: restore the user's mode and arg List pointer from the irab before 
; deallocating it. 
A9 9A 
A9 v0 IRBSL-ARGLST(R9) ,AP 


MOVZBL IRBSB_MODE(R9) ,R7 
MOVL 
deallocate asb and irab 
| 
| 
| 
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DODOOOOOOO OOOO OOO 090009 00 09 09 05 09 09 09 SI NINN NSIS NS NIAAA AAO! WU 
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5A 00 MOVL R10,R3 3: get space header page 
14 A9 D0 MOVL RB$L_ASBADDR(R9).R4 =: get asb addr 

06 13 BEQL 3; just in case we don't have one? 
FEDE’ 30 BSBW RMSRETBLK 3; deallocate irab 

5A 00 MOVL R10,R3 3; restore header page 

59 8 30$: MOVL R9,R4 3 get irab a 
FEDS* BSBW =: RMSRETBLK : patlecete iret 

AB 00 MOVL IMP$L_IRABTBL(R11),R1 ; get irab table addr 

07 =«#+10 BSBB ZAPCOR : zero isi & isi cable entry 

01 BA EXIT: POPR #°M<RO> : restore status 

05 RSB ; & return 
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subroutine to clear the ifab or irab table 
entry for the ifab or irab whose address is in r9. 
also zeros the ifi or isi and r9 


52 04 Al ODE MOVAL 4(R1),R2 ; leave rl pointing to Link 


3 point r2 to ist entry 


: inputs: | 
; rii impure area address 
3 r9 ifab/irab address 
: r8 fab/rab address | 
: outputs: 
: ifab/irab table pointer zeroed. 
: ifab/irab address in r9 zeroed. 
: fab$w_ifi/rab$w_isi zeroed 
: r0-r2 destroyed | 
RMSZAPIFI:: | 
51 18 AB ODE OVAL IMPS$L_IFABTBL(R11),R1 ; get ifab table addr 
ZAPCOM: 
| 


L 
M 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
8 
8 
C 
¢ 
¢ 
0 
3 
5 
8 
B 


0 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 


ee ee ee ed ed ed sd od 2 wd 8) 2 2 8 2 — 3 = ss 8 
Fe oe ot at at ae ee UU RUUMUAUMUMUMUMUMUMAAMAAUMAUAUAAARMAAARrMwM raw 
UNE BAER SEES SWWWWWWIIIRonoRononoNnPoNNono 2 = 20 
NM OODNAUEWN COONAN EWN SO OONAUE WN OOONAUS WNC 


fo loleleleolelelojlaleleleolalealaleoelelolelolelelelolelelelelelelelelelolelelelolo) 


50 20 AB 3C MOVZWL IMP$W_ENTPERSEG(R11),RO ; # entries per table segment. 
59 82 01 10$: CMPL (R2)+,89 ; is this desired entry? 
08 13 BEQL 208 ; branch if yes 
F850 =2«*FS SOBGTR RO,10$ ; keep trying 
51 61 00 MOVL (R41) ,R1 ; next segment 
ce i . BRB ZAPCOM 
D : 
4 ; this is the sought-for table entry - zero it 
D 
72 «4 D 20$: CLRL -(R2) 
F ASSUME RABSW_ISI EQ FABSW_IFI | 
02 As 84 F RABSW_ISI(R8) ; zero isi (or ifi) 
22 AB CB? g DECW IMP$W_NUM_IFABS(R11) ; decrement count of allocated ifabs 
59 =D4 CLRL R9 : zero ifab or irab address 
05 7 RSB 
H END 


RMOCOMCLN 
Symbol table 


$$.PSECT_EP 
$$. TMP 


SSRNSTEST 
SSRMS_PBUGCHK 
$$RMS_TBUGCHK 


SSRMS_UMODE 
BIO 

BIOCHK 
BLBSL ait 
BLBSL 
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GB 
CSHSM M+ ph eg 
CSH + OREAD 
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$V" GBLBUF 
IRBSV-PPF OT HAGE 
NOBUF 
NTSDISCONNECT 
NTDISC 
PIO$GT_ENDSTR 
P1OSGu STATUS 

P10$v_EOD 

RABS$W_ISI 
RLB$C_BLN 
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COMMON CLEAN UP CONN=DISCONN 
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RLBSL_LNK 
RLB$L_OWNER 
RLS$M-RETURN 
RM$BUG 
RASCACHE 
RMSCCLN 

01 RMSCOMCLNUP 

01 RM$DISCOMMON 
RM$DISCOMMONSUC 
RMSDSCJNL 
RMSRELEASE 

01 RMSRETBLB 
RMSRETBLK 
RMSRETGBPB 
RMSRETSPC1 

01 RMSUNLOCKALL 
RMSZAPIF I 
RTNBDB 
RTNBLB 
RTNBLBS 
RTNIR 
RTNJNL 
RTNRLB 
ZAPCOM 
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RRAKRHEE 
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0000004 
00000003 
00000000 
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REKKRORK 
RERREEERE 
RAKE 
RREKKEKK 
RRERKEERK 
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C 
RMOCOMCLN COMMON CLEAN UP CONN=DISCONN 16-SEP-1984 00:14:09 VAX/VMS Macro 
Psect synopsis -SEP-1984 16:21:29 CRMS.SRCIR 


PSECT name Allocation PSECT No. Attributes 


ABS 00000000 ” 0.) 00 ¢ be : NOPIC USR CON LCL 
RMSRMSO 00000158 (¢ 344.) Q1 ¢ PIC USR CON REL GBL NOSHR 
S$ 00000000 < 0.) 02 ¢ 2: NOPIC USR CON LCL NOSHR EXE RD 
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Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00:00:00.89 
oanags processing 114 00:00:00.71 bs BT 4 

s 1 347 abs Se 00:00:35.4 

Syabol table sort g 00:00:01.5 Op OD Ree 
Pass 9 00:00:02.35 00:00:05.38 
Symbol table output 11 00:00:00.13 00:00:01.72 
Psect synopsis output 2 00:00:00.03 00:00:00.16 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 598 00:00:16.56 00:00:50.98 


The working set Limit was 1650 pages. 

65097 bytes (128 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1211 non-local and 16 local symbols. 
452 source Lines were read in Pass 1, producing 14 object records in Pass 2 

1 pages of virtual memory were used to define 30 macros. 
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Macro Library name Macros defined 


-$255$DUA28: CRMS.OBJIRMS. mart 1 19 
~$255$DUA28:CSYS.OBJJLIB.MLB; 1 1 
“$255$DUA28: Eevsi IBSTARLET. MLB;2 6 
TOTALS (all Libraries) 26 
1366 GETS were required to define 26 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=L1S$:RMOCOMCLN/OBJ=0BJ$:RMOCOMCLN MSRC$:RMOCOMCLN/UPDATE=(ENHS$:RMOCOMCLN) +EXECML$/LIB+LIB$:RMS/LIB 


moc COMCLN.MAR; 1 


pe NOEXE NORD NOWRT NOVEC BYTE 
EXE RD NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
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